unit shbl_Directory;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Reestr, DB, FIBDatabase, pFIBDatabase, FIBDataSet,
  pFIBDataSet, ActnList, GridsEh, DBGridEh, ComCtrls, ToolWin, PropFilerEh,
  PropStorageEh, XLSExportComp, ExtCtrls, DBCtrls;

type
  TshblDirectory = class(TshblReestr)
    DBNavigator1: TDBNavigator;
    procedure aRefreshExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shblDirectory: TshblDirectory;

implementation

{$R *.dfm}

procedure TshblDirectory.aRefreshExecute(Sender: TObject);
begin
  dsReestr.CloseOpen(true);
end;

procedure TshblDirectory.FormShow(Sender: TObject);
begin
  aRefreshExecute(Sender);
end;

end.
